home *** CD-ROM | disk | FTP | other *** search
/ Apple 110 October 1990 Product Training / Apple 110 October 1990 Product Training.bin / ATS Menu / ATS Menu / stack_-1.xml < prev    next >
Extensible Markup Language  |  1990-09-07  |  8KB  |  16 lines
  1. <?xml version="1.0" encoding="utf-8" ?>
  2. <!DOCTYPE stack PUBLIC "-//Apple, Inc.//DTD stack V 2.0//EN" "" >
  3. <stack>
  4.     <name>in</name>
  5.     <id>-1</id>
  6.     <cardCount>16</cardCount>
  7.     <cardID>4198</cardID>
  8.     <listID>12507</listID>
  9.     <cantModify><true /></cantModify>
  10.     <cantDelete><false /></cantDelete>
  11.     <cantAbort><false /></cantAbort>
  12.     <cardSize>
  13.         <width>512</width>
  14.         <height>342</height>
  15.     </cardSize>
  16.     <script>--ΓÇöΓÇöΓÇöΓÇöΓÇöΓÇöΓÇöΓÇöΓÇöΓÇöΓÇöΓÇöΓÇöΓÇöΓÇöΓÇöΓÇöΓÇöΓÇöΓÇöΓÇöΓÇöΓÇöΓÇöΓÇöΓÇöΓÇöΓÇöΓÇöΓÇöΓÇöΓÇöΓÇöΓÇöΓÇöΓÇöΓÇöΓÇöΓÇöΓÇöΓÇöΓÇöΓÇöΓÇöΓÇöΓÇöΓÇöΓÇöΓÇöΓÇöΓÇöΓÇöΓÇöΓÇöΓÇöΓÇöΓÇöΓÇöΓÇöΓÇöΓÇöΓÇöΓÇöΓÇöΓÇöΓÇöΓÇöΓÇöΓÇö--  Script of Stack "ATS Menu"--  Copyright ┬⌐ 1990 by Apple Computer, Inc.--  Setup and Preferences stack for the October ΓÇÖ90 Training stacks--ΓÇöΓÇöΓÇöΓÇöΓÇöΓÇöΓÇöΓÇöΓÇöΓÇöΓÇöΓÇöΓÇöΓÇöΓÇöΓÇöΓÇöΓÇöΓÇöΓÇöΓÇöΓÇöΓÇöΓÇöΓÇöΓÇöΓÇöΓÇöΓÇöΓÇöΓÇöΓÇöΓÇöΓÇöΓÇöΓÇöΓÇöΓÇöΓÇöΓÇöΓÇöΓÇöΓÇöΓÇöΓÇöΓÇöΓÇöΓÇöΓÇöΓÇöΓÇöΓÇöΓÇöΓÇöΓÇöΓÇöΓÇöΓÇöΓÇöΓÇöΓÇöΓÇöΓÇöΓÇöΓÇöΓÇöΓÇöΓÇöΓÇö--  Produced by Tom Hudson in Apple Training Support--  Designed and Constructed by Chuck Walker----  Globals:   ATSUserName, allATSUsers, prefsStack, destination--             whatStack, animate, whatSound--             completeCL, markedCL, evaluationCL--             completeSI, markedSI, evaluationSI--             completeLC, markedLC, evaluationLC--             completeFam, markedFam, evaluationFam--             completeRGB, markedRGB, evaluationRGB--             completeMono, markedMono, evaluationMono--  Handlers:  startUp, openStack, idle, setRadio1, setRadio2, findATSPrefs,--             verifySettings, storeUserProgress, returnKey, enterKey,--             playAudio, stackHelp, noFunction, demoMode--  (note: resources are installed in this stack)--  Fonts:     C Futura Condensed 12, 24;--             CB Futura CondensedBold 12--  XCMDs:     PlayMovie  - from the MacroMind Player--  XFCNs:     volume     - from the HyperSound Toolkit--             (Portions copyright Farallon Computing, Inc., 1989--             and Apple Computer, Inc., 1989)--ΓÇöΓÇöΓÇöΓÇöΓÇöΓÇöΓÇöΓÇöΓÇöΓÇöΓÇöΓÇöΓÇöΓÇöΓÇöΓÇöΓÇöΓÇöΓÇöΓÇöΓÇöΓÇöΓÇöΓÇöΓÇöΓÇöΓÇöΓÇöΓÇöΓÇöΓÇöΓÇöΓÇöΓÇöΓÇöΓÇöΓÇöΓÇöΓÇöΓÇöΓÇöΓÇöΓÇöΓÇöΓÇöΓÇöΓÇöΓÇöΓÇöΓÇöΓÇöΓÇöΓÇöΓÇöΓÇöΓÇöΓÇöΓÇöΓÇöΓÇöΓÇöΓÇöΓÇöΓÇöΓÇöΓÇöΓÇöΓÇöΓÇö--  allocate memory for large cardson startUppush cardlock screenset lockMessages to trueset lockRecent to truego stack "OctΓÇÖ90 Prod Trng:Macintosh IIsi:Macintosh IIsi Color"pop cardunlock screenend startUpon openStackset cursor to watch-- place the window in the center of the screenget the screenRectput (item 3 of it / 2) - 256 into windLput (item 4 of it / 2) - 171 into windTset the rect of card window to windL,windT,windL + 512,windT + 342hide menuBar--  hide all the other windowshide message windowhide tool windowhide pattern windowhide scroll windowend openStackon idleif there is a window "waitDLOG" then close window "waitDLOG"end idle-- find the stack "ATS Prefs 10.90"on findATSPrefsglobal prefsStackanswer file "Please find the copy of the ΓÇÿATS Prefs 10.90ΓÇÖ stack." of type stackif it is empty then exit to hyperCardput it into prefsStackif "ATS Prefs 10.90" is not in prefsStack thenput empty into prefsStackanswer "That is the wrong stack. The stack must be named ΓÇÿATS Prefs 10.90ΓÇÖ." ┬¼with "Quit" or "Look again"if it is "Quit" thendoMenu "Quit HyperCard"elsefindATSPrefsend ifend ifif "OctΓÇÖ90 Prod Trng" is in prefsStack thenput empty into prefsStackanswer "You have to copy the ATS Prefs 10.90 stack to your hard drive to use it." ┬¼& return & return & "Open the Start Me First stack for information."exit to HyperCardend ifend findATSPrefs--  set the CPU and Monitor Settings radio buttonson setRadio1 whatSizeglobal animate, whatStackrepeat with x = 1 to 3set the icon of bg button x to "emptyBox"end repeatif whatSize is empty thenput empty into animateput empty into whatStackexit setRadio1else if whatSize = "bigMac" thenset the icon of bg button 1 to "checkedBox"put "true" into animateput "color" into whatStackelse if whatSize = "midMac" thenset the icon of bg button 2 to "checkedBox"put "true" into animateput "bw" into whatStackelseset the icon of bg button 3 to "checkedBox"put "false" into animateput "bw" into whatStackend ifvisual iris open fastgo card whatSizeend setRadio1--  set the Sound Settings radio buttonson setRadio2 soundglobal whatSoundrepeat with x = 4 to 6set the icon of bg button x to "emptyBox"end repeatif sound is empty thenput empty into whatSoundexit setRadio2else if sound = "cd" thenset the icon of bg button 4 to "checkedBox"else if sound = "mac" thenset the icon of bg button 5 to "checkedBox"elseset the icon of bg button 6 to "checkedBox"end ifput sound into whatSoundvisual iris open fastgo card soundend setRadio2--  check the userΓÇÖs preferenceson verifySettingsglobal ATSUserName, prefsStack, whatStack, animate, whatSoundset cursor to busyif whatStack is empty thenvisual iris close fastgo card "Setup"answer "You havenΓÇÖt selected a CPU and Monitor setting."┬¼& return & return & "You must select one before proceeding."exit to hyperCardelse if whatSound is empty thenvisual iris close fastgo card "Setup"answer "You havenΓÇÖt selected a Sound setting."┬¼& return & return & "You must select one before proceeding."exit to hyperCardend if--  check whether the monitor is large enoughset cursor to busyif whatStack = "color" thenget the screenRectif item 3 of it < 640 or item 4 of it < 480 thenput "bw" into whatStackanswer "You donΓÇÖt have a large enough monitor to view the color stacks." ┬¼& return & return & "You will see the small versions instead." ┬¼with "Shucks"end ifend if--  check the free RAM and status of the MacroMind Playerset cursor to busyif animate = "true" or whatSound = "cd" thenPlayMovie "OctΓÇÖ90 Prod Trng:Menu Movies:empty.dir",movieNoClear,movieNoDialog,movieVersionif the result is not empty thenif animate = "true" and whatSound = "cd" thenput "false" into animateput "mac" into whatSoundanswer "There is a problem playing animation and CD sound." ┬¼& return & return & "You will see still images and hear Macintosh sound instead." ┬¼with "Shucks"else if animate = "true" thenput "false" into animateanswer "There is a problem playing animation." ┬¼& return & return & "You will see still images instead." ┬¼with "Shucks"else if whatSound = "cd" thenput "mac" into whatSoundanswer "There is a problem playing CD sound." ┬¼& return & return & "You will hear Macintosh sound instead." ┬¼with "Shucks"end ifend ifPlayMovie movieCloseend ifend verifySettings--  store all of the users progresson storeUserProgressglobal ATSUserName, prefsStack, whatStack, animate, whatSound, ATSUserInfoglobal completeCL, markedCL, evaluationCLglobal completeSI, markedSI, evaluationSIglobal completeLC, markedLC, evaluationLCglobal completeFam, markedFam, evaluationFamglobal completeRGB, markedRGB, evaluationRGBglobal completeMono, markedMono, evaluationMonoif ATSUserName is not empty and prefsStack is not empty thenset cursor to busypicture "waitDLOG",resource,rect,trueset lockRecent to trueset lockMessages to truelock screenpush cardgo card ATSUserName of stack prefsStackset cursor to busyput whatStack & "," & animate & "," & whatSound into field "prefInfo"set cursor to busyput completeCL into field "ClassicViewed"put markedCL into field "ClassicMarked"put evaluationCL into field "ClassicEval"set cursor to busyput completeSI into field "IIsiViewed"put markedSI into field "IIsiMarked"put evaluationSI into field "IIsiEval"set cursor to busyput completeLC into field "LCViewed"put markedLC into field "LCMarked"put evaluationLC into field "LCEval"set cursor to busyput completeFam into field "FamilyViewed"put markedFam into field "FamilyMarked"put evaluationFam into field "FamilyEval"set cursor to busyput completeRGB into field "RGBmonViewed"put markedRGB into field "RGBmonMarked"put evaluationRGB into field "R